home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / A-B / 3dlib11.cpt / GrafSys.rel / GrafLib.Fixed / Screen3D.fix.int < prev    next >
Text File  |  1992-04-12  |  1KB  |  32 lines
  1. unit Screen3D;
  2.  
  3. interface
  4.  
  5.     uses
  6.         GrafSys;
  7. (* Matrix, Transformations, Data3D, ResourceAccess, Grafsys; *)
  8.  
  9. (* simple 3D drawing commands *)
  10.     procedure MoveTo3D (x, y, z: Real);
  11.     procedure LineTo3D (x, y, z: Real);
  12.  
  13. (* routines to draw object on screen *)
  14.     procedure DrawObject (theObject: GrafObjPtr);
  15.     procedure fDrawObject (theObject: GrafObjPtr);
  16.  
  17. (* routines affecting ScreenObjects *)
  18.     function NewScreenObject: ScreenObjPtr; (* allocate mem for Screenobject & init it *)
  19.     procedure UpdateScreenObject (theObject: GrafObjPtr);
  20.     procedure CalcScreenObject (theObject: grafObjPtr; forceCalc: Boolean);
  21.     procedure AttachScreenObject (theScrnObj: ScreenObjPtr; theObject: GrafObjPtr);
  22.     procedure UnLinkScreenObject (theObject: GrafObjPtr; var theScrnObj: ScreenObjPtr);
  23.     procedure DrawScreenObject (theObject: GrafObjPtr);
  24.  
  25. (* routines for clipped Line-Drawing *)
  26.     procedure CCalcScreenObject (theObject: grafObjPtr; forceCalc: Boolean);
  27.  
  28. (* routines for Hidden Line/surface drawing *)
  29.     procedure DrawHLScreenObject (theObject: grafObjPtr);
  30.  
  31. implementation
  32. end.